home *** CD-ROM | disk | FTP | other *** search
- /*
- * example.c V2.1
- *
- * Shows the usage of the library in programs
- *
- * (c) 1990-1993 Stefan Becker
- */
-
- #include <utility/tagitem.h>
- #include <utility/hooks.h>
- #include <clib/dos_protos.h>
- #include <clib/exec_protos.h>
- #include <clib/intuition_protos.h>
- #include <clib/toolmanager_protos.h>
- #include <pragmas/dos_pragmas.h>
- #include <pragmas/exec_pragmas.h>
- #include <pragmas/intuition_pragmas.h>
- #include <pragmas/toolmanager_pragmas.h>
- #include <stdlib.h>
- #include <stdio.h>
-
- extern struct Library *DOSBase;
- extern struct Library *IntuitionBase;
- extern struct Library *SysBase;
- extern struct Library *ToolManagerBase;
-
- /* Example hook function (not used) */
- __geta4 BOOL hookfunc(__A0 struct Hook *hook, __A1 struct AppMessage *msg,
- __A2 void *object)
- {
- DisplayBeep(NULL);
- Delay(25);
- return(TRUE);
- }
-
- struct Hook hook={NULL,NULL,(ULONG (*)()) hookfunc,NULL,(APTR) 1};
-
- struct TagItem execti1[]={
- TMOP_Arguments, TRUE,
- TMOP_Command, (ULONG) "'call [] getfile()'",
- TMOP_CurrentDir, (ULONG) "SYS:",
- TMOP_Delay, 0,
- TMOP_ExecType, TMET_ARexx,
- TMOP_HotKey, (ULONG) "ralt a",
- TMOP_PubScreen, (ULONG) "TERM",
- TMOP_ToFront, TRUE,
- TAG_DONE};
-
- struct TagItem execti2[]={
- TMOP_Arguments, TRUE,
- TMOP_Command, (ULONG) "dir [] all",
- TMOP_CurrentDir, (ULONG) "SYS:",
- TMOP_Delay, 0,
- TMOP_ExecType, TMET_CLI,
- TMOP_HotKey, (ULONG) "ralt b",
- TMOP_Output, (ULONG) "CNN:WAIT",
- TMOP_Path, (ULONG) "C:,BOOT:,s:",
- TMOP_Priority, 10,
- TMOP_PubScreen, (ULONG) "TERM",
- TMOP_Stack, 10000,
- TMOP_ToFront, TRUE,
- TAG_DONE};
-
- struct TagItem execti3[]={
- TMOP_Arguments, TRUE,
- TMOP_Command, (ULONG) "sys:bin/DME",
- TMOP_CurrentDir, (ULONG) "SYS:",
- TMOP_Delay, 0,
- TMOP_ExecType, TMET_WB,
- TMOP_HotKey, (ULONG) "ralt c",
- TMOP_Priority, 10,
- TMOP_PubScreen, (ULONG) "TERM",
- TMOP_Stack, 10000,
- TMOP_ToFront, TRUE,
- TAG_DONE};
-
- struct TagItem imageti1[]={
- TMOP_File, (ULONG) "TM:Icons/Bin",
- TMOP_Data, NULL,
- TAG_DONE};
-
- struct TagItem imageti2[]={
- TMOP_File, (ULONG) "TM:Icons/Disk",
- TMOP_Data, NULL,
- TAG_DONE};
-
- struct TagItem imageti3[]={
- TMOP_File, (ULONG) "TM:icons/MapleV.brush",
- TMOP_Data, NULL,
- TAG_DONE};
-
- struct TagItem imageti4[]={
- TMOP_File, (ULONG) "TM:Anims/test1.anim",
- TMOP_Data, NULL,
- TAG_DONE};
-
- struct TagItem soundti1[]={
- TMOP_Command, (ULONG) "id warn_general",
- TAG_DONE};
-
- struct TagItem soundti2[]={
- TMOP_Command, (ULONG) "playmod qdh2:delitracker/modules/markII/MkII.Hard.pp",
- TMOP_Port, (ULONG) "rexx_DT",
- TAG_DONE};
-
- struct TagItem menuti1[]={
- TMOP_Exec, (ULONG) "testexec1",
- TMOP_Sound, (ULONG) "testsound1",
- TAG_DONE};
-
- struct TagItem menuti2[]={
- TMOP_Exec, (ULONG) "testexec2",
- TMOP_Sound, (ULONG) "testsound2",
- TAG_DONE};
-
- struct TagItem menuti3[]={
- TMOP_Exec, (ULONG) "testexec3",
- TMOP_Sound, (ULONG) "testsound1",
- TAG_DONE};
-
- struct TagItem iconti1[]={
- TMOP_Exec, (ULONG) "testexec1",
- TMOP_LeftEdge, 100,
- TMOP_Image, (ULONG) "testimage1",
- TMOP_ShowName, TRUE,
- TMOP_Sound, (ULONG) "testsound1",
- TMOP_TopEdge, 350,
- TAG_DONE};
-
- struct TagItem iconti2[]={
- TMOP_Exec, (ULONG) "testexec2",
- TMOP_LeftEdge, 170,
- TMOP_Image, (ULONG) "testimage2",
- TMOP_ShowName, FALSE,
- TMOP_Sound, (ULONG) "testsound2",
- TMOP_TopEdge, 350,
- TAG_DONE};
-
- struct TagItem iconti3[]={
- TMOP_Exec, (ULONG) "testexec3",
- TMOP_LeftEdge, 240,
- TMOP_Image, (ULONG) "testimage3",
- TMOP_ShowName, TRUE,
- TMOP_Sound, (ULONG) "testsound1",
- TMOP_TopEdge, 350,
- TAG_DONE};
-
- struct TagItem iconti4[]={
- TMOP_Exec, (ULONG) "testexec1",
- TMOP_LeftEdge, 330,
- TMOP_Image, (ULONG) "testimage4",
- TMOP_ShowName, FALSE,
- TMOP_Sound, (ULONG) "testsound2",
- TMOP_TopEdge, 350,
- TAG_DONE};
-
- char *tool1[]={"testexec1","testimage1","testsound1"};
- char *tool2[]={"testexec2","testimage2","testsound2"};
- char *tool3[]={"testexec3","testimage3","testsound1"};
- char *tool4[]={"testexec1","testimage4","testsound2"};
- struct TagItem dockti1[]={
- TMOP_LeftEdge, 80,
- TMOP_TopEdge, 200,
- TMOP_Activated, TRUE,
- TMOP_Centered, FALSE,
- TMOP_Columns, 3,
- TMOP_FrontMost, TRUE,
- TMOP_HotKey, (ULONG) "rcommand rshift d",
- TMOP_Vertical, TRUE,
- TMOP_Text, FALSE,
- TMOP_Title, (ULONG) "Blaaaa 1",
- TMOP_Pattern, TRUE,
- TMOP_Tool, (ULONG) tool1,
- TMOP_Tool, (ULONG) tool2,
- TMOP_Tool, (ULONG) tool3,
- TMOP_Tool, (ULONG) tool4,
- TAG_DONE};
-
- struct TextAttr ta={"topaz.font",20,0,0};
-
- struct TagItem dockti2[]={
- TMOP_LeftEdge, 80,
- TMOP_TopEdge, 300,
- TMOP_Activated, TRUE,
- TMOP_Centered, TRUE,
- TMOP_Columns, 2,
- TMOP_FrontMost, TRUE,
- TMOP_HotKey, (ULONG) "rcommand rshift e",
- TMOP_Vertical, TRUE,
- TMOP_Text, TRUE,
- TMOP_Title, (ULONG) "Blaaaa 2",
- TMOP_Tool, (ULONG) tool1,
- TMOP_Tool, (ULONG) tool2,
- TMOP_Tool, (ULONG) tool3,
- TMOP_Tool, (ULONG) tool4,
- TMOP_Menu, TRUE,
- TMOP_Font, (ULONG) &ta,
- TAG_DONE};
-
- struct TagItem dockti3[]={
- TMOP_LeftEdge, 300,
- TMOP_TopEdge, 200,
- TMOP_Activated, TRUE,
- TMOP_Centered, FALSE,
- TMOP_Columns, 2,
- TMOP_FrontMost, TRUE,
- TMOP_HotKey, (ULONG) "rcommand rshift f",
- TMOP_Vertical, FALSE,
- TMOP_Text, FALSE,
- TMOP_Tool, (ULONG) tool1,
- TMOP_Tool, (ULONG) tool2,
- TMOP_Tool, (ULONG) tool3,
- TMOP_Tool, (ULONG) tool4,
- TAG_DONE};
-
- struct TagItem dockti4[]={
- TMOP_LeftEdge, 300,
- TMOP_TopEdge, 300,
- TMOP_Activated, TRUE,
- TMOP_Centered, TRUE,
- TMOP_Columns, 2,
- TMOP_FrontMost, TRUE,
- TMOP_HotKey, (ULONG) "rcommand rshift g",
- TMOP_Vertical, FALSE,
- TMOP_Text, TRUE,
- TMOP_Tool, (ULONG) tool1,
- TMOP_Tool, (ULONG) tool2,
- TMOP_Tool, (ULONG) tool3,
- TMOP_Tool, (ULONG) tool4,
- TAG_DONE};
-
- struct TagItem dockti5[]={
- TMOP_LeftEdge, 450,
- TMOP_TopEdge, 200,
- TMOP_Activated, TRUE,
- TMOP_Centered, FALSE,
- TMOP_PopUp, TRUE,
- TMOP_Columns, 2,
- TMOP_FrontMost, TRUE,
- TMOP_HotKey, (ULONG) "rcommand rshift h",
- TMOP_Vertical, TRUE,
- TMOP_Text, FALSE,
- TMOP_Tool, (ULONG) tool1,
- TMOP_Tool, (ULONG) tool2,
- TMOP_Tool, (ULONG) tool3,
- TMOP_Tool, (ULONG) tool4,
- TAG_DONE};
-
- struct TagItem dockti6[]={
- TMOP_LeftEdge, 450,
- TMOP_TopEdge, 300,
- TMOP_Activated, TRUE,
- TMOP_Centered, TRUE,
- TMOP_PopUp, TRUE,
- TMOP_Columns, 2,
- TMOP_FrontMost, TRUE,
- TMOP_HotKey, (ULONG) "rcommand rshift i",
- TMOP_Vertical, TRUE,
- TMOP_Text, TRUE,
- TMOP_Tool, (ULONG) tool1,
- TMOP_Tool, (ULONG) tool2,
- TMOP_Tool, (ULONG) tool3,
- TMOP_Tool, (ULONG) tool4,
- TAG_DONE};
-
- int main(int argc, char *argv[])
- {
- void *handle;
-
- if (handle=AllocTMHandle()) {
- printf("handle: 0x%08lx\n",handle);
-
- CreateTMObjectTagList(handle,"testexec1",TMOBJTYPE_EXEC,execti1);
- CreateTMObjectTagList(handle,"testexec2",TMOBJTYPE_EXEC,execti2);
- CreateTMObjectTagList(handle,"testexec3",TMOBJTYPE_EXEC,execti3);
- CreateTMObjectTagList(handle,"testimage1",TMOBJTYPE_IMAGE,imageti1);
- CreateTMObjectTagList(handle,"testimage2",TMOBJTYPE_IMAGE,imageti2);
- CreateTMObjectTagList(handle,"testimage3",TMOBJTYPE_IMAGE,imageti3);
- CreateTMObjectTagList(handle,"testimage4",TMOBJTYPE_IMAGE,imageti4);
- CreateTMObjectTagList(handle,"testsound1",TMOBJTYPE_SOUND,soundti1);
- CreateTMObjectTagList(handle,"testsound2",TMOBJTYPE_SOUND,soundti2);
- CreateTMObjectTagList(handle,"testmenu1",TMOBJTYPE_MENU,menuti1);
- CreateTMObjectTagList(handle,"testmenu2",TMOBJTYPE_MENU,menuti2);
- CreateTMObjectTagList(handle,"testmenu3",TMOBJTYPE_MENU,menuti3);
- CreateTMObjectTagList(handle,"testicon1",TMOBJTYPE_ICON,iconti1);
- CreateTMObjectTagList(handle,"testicon2",TMOBJTYPE_ICON,iconti2);
- CreateTMObjectTagList(handle,"testicon3",TMOBJTYPE_ICON,iconti3);
- CreateTMObjectTagList(handle,"testicon4",TMOBJTYPE_ICON,iconti4);
- CreateTMObjectTagList(handle,"testdock1",TMOBJTYPE_DOCK,dockti1);
- CreateTMObjectTagList(handle,"testdock2",TMOBJTYPE_DOCK,dockti2);
- CreateTMObjectTagList(handle,"testdock3",TMOBJTYPE_DOCK,dockti3);
- CreateTMObjectTagList(handle,"testdock4",TMOBJTYPE_DOCK,dockti4);
- CreateTMObjectTagList(handle,"testdock5",TMOBJTYPE_DOCK,dockti5);
- CreateTMObjectTagList(handle,"testdock6",TMOBJTYPE_DOCK,dockti6);
-
- Wait(0xF000);
-
- FreeTMHandle(handle);
- }
- exit(0);
- }
-